Suzy B Software 2/Suzy B Software CD-ROM 2 (1994).iso/stos/stos_56/virus/disk2.bas

Atari STOS Basic | 1987-04-21 | 119KB | 1,111 lines

10 CLEAR
100 IF
1000 RETURN
10000 REM ************************************ screen 1
10010 DATA
10020 DATA
10030 DATA
10040 DATA
10050 DATA
10060 DATA
10070 DATA
10080 DATA
10090 DATA
1010 REM ------------------------------------------------ANIMATION RUTIN >>>>>>>
10100 REM ************************************ screen 2
10110 DATA
10120 DATA
10130 DATA
10140 DATA
10150 DATA
10160 DATA
10170 DATA
10180 DATA
10190 DATA
1020 VARNAME
10200 REM ************************************ screen 3
10210 DATA
10220 DATA
10230 DATA
10240 DATA
10250 DATA
10260 DATA
10270 DATA
10280 DATA
10290 DATA
1030 VARNAME
10300 REM ************************************ screen 4
10310 DATA
10320 DATA
10330 DATA
10340 DATA
10350 DATA
10360 DATA
10370 DATA
10380 DATA
10390 DATA
1040 VARNAME
10400 REM ************************************ screen 5
10410 DATA
10420 DATA
10430 DATA
10440 DATA
10450 DATA
10460 DATA
10470 DATA
10480 DATA
10490 DATA
1050 VARNAME
10500 REM ************************************ screen 6
10510 DATA
10520 DATA
10530 DATA
10540 DATA
10550 DATA
10560 DATA
10570 DATA
10580 DATA
10590 DATA
1060 VARNAME
10600 REM ************************************ screen 7
10610 DATA
10620 DATA
10630 DATA
10640 DATA
10650 DATA
10660 DATA
10670 DATA
10680 DATA
10690 DATA
1070 VARNAME
10700 REM ************************************ screen 8
10710 DATA
10720 DATA
10730 DATA
10740 DATA
10750 DATA
10760 DATA
10770 DATA
10780 DATA
10790 DATA
1080 VARNAME
10800 REM ************************************ screen 9
10810 DATA
10820 DATA
10830 DATA
10840 DATA
10850 DATA
10860 DATA
10870 DATA
10880 DATA
10890 DATA
1090 VARNAME
10900 REM ************************************ screen 10
10910 DATA
10920 DATA
10930 DATA
10940 DATA
10950 DATA
10960 DATA
10970 DATA
10980 DATA
10990 DATA
110 VARNAME
1100 VARNAME
11000 REM ************************************ screen 11
11010 DATA
11020 DATA
11030 DATA
11040 DATA
11050 DATA
11060 DATA
11070 DATA
11080 DATA
11090 DATA
1110 VARNAME
11100 REM ************************************ screen 12
11110 DATA
11120 DATA
11130 DATA
11140 DATA
11150 DATA
11160 DATA
11170 DATA
11180 DATA
11190 DATA
1120 REM ------------------------------------------------ANIMATION RUTIN <<<<<<
11200 REM ************************************ screen 13
11210 DATA
11220 DATA
11230 DATA
11240 DATA
11250 DATA
11260 DATA
11270 DATA
11280 DATA
11290 DATA
1130 VARNAME
11300 REM ************************************ screen 14
11310 DATA
11320 DATA
11330 DATA
11340 DATA
11350 DATA
11360 DATA
11370 DATA
11380 DATA
11390 DATA
1140 VARNAME
11400 REM ************************************ screen 15
11410 DATA
11420 DATA
11430 DATA
11440 DATA
11450 DATA
11460 DATA
11470 DATA
11480 DATA
11490 DATA
1150 VARNAME
11500 REM ************************************ screen 16
11510 DATA
11520 DATA
11530 DATA
11540 DATA
11550 DATA
11560 DATA
11570 DATA
11580 DATA
11590 DATA
1160 VARNAME
11600 REM ************************************ screen 17
11610 DATA
11620 DATA
11630 DATA
11640 DATA
11650 DATA
11660 DATA
11670 DATA
11680 DATA
11690 DATA
1170 VARNAME
11700 REM ************************************ screen 18
11710 DATA
11720 DATA
11730 DATA
11740 DATA
11750 DATA
11760 DATA
11770 DATA
11780 DATA
11790 DATA
1180 VARNAME
11800 REM ************************************ screen 19
11810 DATA
11820 DATA
11830 DATA
11840 DATA
11850 DATA
11860 DATA
11870 DATA
11880 DATA
11890 DATA
1190 VARNAME
11900 REM ************************************ screen 20
11910 DATA
11920 DATA
11930 DATA
11940 DATA
11950 DATA
11960 DATA
11970 DATA
11980 DATA
11990 DATA
120 IF
1200 VARNAME
12000 REM ************************************ screen 21
12010 DATA
12020 DATA
12030 DATA
12040 DATA
12050 DATA
12060 DATA
12070 DATA
12080 DATA
12090 DATA
1210 VARNAME
12100 REM ************************************ screen 22
12110 DATA
12120 DATA
12130 DATA
12140 DATA
12150 DATA
12160 DATA
12170 DATA
12180 DATA
12190 DATA
1220 VARNAME
12200 REM ************************************ screen 23
12210 DATA
12220 DATA
12230 DATA
12240 DATA
12250 DATA
12260 DATA
12270 DATA
12280 DATA
12290 DATA
1230 REM -------------------------------------------------- VIRUS ON THE SCREEN
12300 REM ************************************ screen 24
12310 DATA
12320 DATA
12330 DATA
12340 DATA
12350 DATA
12360 DATA
12370 DATA
12380 DATA
12390 DATA
1240 ON
12400 REM ************************************ screen 25
12410 DATA
12420 DATA
12430 DATA
12440 DATA
12450 DATA
12460 DATA
12470 DATA
12480 DATA
12490 DATA
1250 IF
12500 REM ************************************ screen 26
12510 DATA
12520 DATA
12530 DATA
12540 DATA
12550 DATA
12560 DATA
12570 DATA
12580 DATA
12590 DATA
1260 IF
12600 REM ************************************ screen 27
12610 DATA
12620 DATA
12630 DATA
12640 DATA
12650 DATA
12660 DATA
12670 DATA
12680 DATA
12690 DATA
1270 MUSIC
12700 REM ************************************ screen 28
12710 DATA
12720 DATA
12730 DATA
12740 DATA
12750 DATA
12760 DATA
12770 DATA
12780 DATA
12790 DATA
1280 RETURN
12800 REM ************************************ screen 29
12810 DATA
12820 DATA
12830 DATA
12840 DATA
12850 DATA
12860 DATA
12870 DATA
12880 DATA
12890 DATA
1290 REM ---------- logo kula
12900 REM ************************************ screen 30
12910 DATA
12920 DATA
12930 DATA
12940 DATA
12950 DATA
12960 DATA
12970 DATA
12980 DATA
12990 DATA
130 VARNAME
1300 SPRITE
13000 REM ************************************ screen 31
13010 DATA
13020 DATA
13030 DATA
13040 DATA
13050 DATA
13060 DATA
13070 DATA
13080 DATA
13090 DATA
1310 MOVE X
13100 REM ************************************ screen 32
13110 DATA
13120 DATA
13130 DATA
13140 DATA
13150 DATA
13160 DATA
13170 DATA
13180 DATA
13190 DATA
1320 REM ---------- annan kula fΓÇ¥r slut level
13200 REM ************************************ screen 33
13210 DATA
13220 DATA
13230 DATA
13240 DATA
13250 DATA
13260 DATA
13270 DATA
13280 DATA
13290 DATA
1330 SPRITE
13300 REM ************************************ screen 34
13310 DATA
13320 DATA
13330 DATA
13340 DATA
13350 DATA
13360 DATA
13370 DATA
13380 DATA
13390 DATA
1340 MOVE X
13400 REM ************************************ screen 35
13410 DATA
13420 DATA
13430 DATA
13440 DATA
13450 DATA
13460 DATA
13470 DATA
13480 DATA
13490 DATA
1350 REM ---------- virus bana 1
13500 REM ************************************ screen 36
13510 DATA
13520 DATA
13530 DATA
13540 DATA
13550 DATA
13560 DATA
13570 DATA
13580 DATA
13590 DATA
1360 SPRITE
13600 REM ************************************ screen 37
13610 DATA
13620 DATA
13630 DATA
13640 DATA
13650 DATA
13660 DATA
13670 DATA
13680 DATA
13690 DATA
1370 MOVE X
13700 REM ************************************ screen 38
13710 DATA
13720 DATA
13730 DATA
13740 DATA
13750 DATA
13760 DATA
13770 DATA
13780 DATA
13790 DATA
1380 REM ---------- virus bana 2
13800 REM ************************************ screen 39
13810 DATA
13820 DATA
13830 DATA
13840 DATA
13850 DATA
13860 DATA
13870 DATA
13880 DATA
13890 DATA
1390 SPRITE
13900 REM ************************************ screen 40
13910 DATA
13920 DATA
13930 DATA
13940 DATA
13950 DATA
13960 DATA
13970 DATA
13980 DATA
13990 DATA
140 VARNAME
1400 MOVE X
14000 REM ************************************ screen 41
14010 DATA
14020 DATA
14030 DATA
14040 DATA
14050 DATA
14060 DATA
14070 DATA
14080 DATA
14090 DATA
1410 REM ---------- virus bana 3
14100 REM ************************************ screen 42
14110 DATA
14120 DATA
14130 DATA
14140 DATA
14150 DATA
14160 DATA
14170 DATA
14180 DATA
14190 DATA
1420 SPRITE
14200 REM ************************************ screen 43
14210 DATA
14220 DATA
14230 DATA
14240 DATA
14250 DATA
14260 DATA
14270 DATA
14280 DATA
14290 DATA
1430 MOVE X
14300 REM ************************************ screen 44
14310 DATA
14320 DATA
14330 DATA
14340 DATA
14350 DATA
14360 DATA
14370 DATA
14380 DATA
14390 DATA
1440 REM ---------- virus bana 4
14400 REM ************************************ screen 45
14410 DATA
14420 DATA
14430 DATA
14440 DATA
14450 DATA
14460 DATA
14470 DATA
14480 DATA
14490 DATA
1450 SPRITE
14500 REM ************************************ screen 46
14510 DATA
14520 DATA
14530 DATA
14540 DATA
14550 DATA
14560 DATA
14570 DATA
14580 DATA
14590 DATA
1460 MOVE X
14600 REM ************************************ screen 47
14610 DATA
14620 DATA
14630 DATA
14640 DATA
14650 DATA
14660 DATA
14670 DATA
14680 DATA
14690 DATA
1470 REM ---------- virus bana 5
14700 REM ************************************ screen 48
14710 DATA
14720 DATA
14730 DATA
14740 DATA
14750 DATA
14760 DATA
14770 DATA
14780 DATA
14790 DATA
1480 SPRITE
14800 REM ************************************ screen 49
14810 DATA
14820 DATA
14830 DATA
14840 DATA
14850 DATA
14860 DATA
14870 DATA
14880 DATA
14890 DATA
1490 MOVE X
14900 REM ************************************ screen 50
14910 DATA
14920 DATA
14930 DATA
14940 DATA
14950 DATA
14960 DATA
14970 DATA
14980 DATA
14990 DATA
150 GOSUB
1500 REM ---------- virus bana 6
15000 REM ************************************ screen 51
15010 DATA
15020 DATA
15030 DATA
15040 DATA
15050 DATA
15060 DATA
15070 DATA
15080 DATA
15090 DATA
1510 SPRITE
15100 REM ************************************ screen 52
15110 DATA
15120 DATA
15130 DATA
15140 DATA
15150 DATA
15160 DATA
15170 DATA
15180 DATA
15190 DATA
1520 MOVE X
15200 REM ************************************ screen 53
15210 DATA
15220 DATA
15230 DATA
15240 DATA
15250 DATA
15260 DATA
15270 DATA
15280 DATA
15290 DATA
1530 REM ---------- virus bana 7
15300 REM ************************************ screen 54
15310 DATA
15320 DATA
15330 DATA
15340 DATA
15350 DATA
15360 DATA
15370 DATA
15380 DATA
15390 DATA
1540 SPRITE
15400 REM ************************************ screen 55
15410 DATA
15420 DATA
15430 DATA
15440 DATA
15450 DATA
15460 DATA
15470 DATA
15480 DATA
15490 DATA
1550 MOVE X
15500 REM ************************************ screen 56
15510 DATA
15520 DATA
15530 DATA
15540 DATA
15550 DATA
15560 DATA
15570 DATA
15580 DATA
15590 DATA
1560 REM ---------- VIRUS BANA 8
15600 REM ************************************ screen 57
15610 DATA
15620 DATA
15630 DATA
15640 DATA
15650 DATA
15660 DATA
15670 DATA
15680 DATA
15690 DATA
1570 SPRITE
15700 REM ************************************ screen 58
15710 DATA
15720 DATA
15730 DATA
15740 DATA
15750 DATA
15760 DATA
15770 DATA
15780 DATA
15790 DATA
1580 MOVE X
15800 REM ************************************ screen 59
15810 DATA
15820 DATA
15830 DATA
15840 DATA
15850 DATA
15860 DATA
15870 DATA
15880 DATA
15890 DATA
1590 REM ---------- virus bana 9
15900 REM ************************************ screen 60
15910 DATA
15920 DATA
15930 DATA
15940 DATA
15950 DATA
15960 DATA
15970 DATA
15980 DATA
15990 DATA
160 GOTO
1600 SPRITE
16000 REM ************************************ screen 61
16010 DATA
16020 DATA
16030 DATA
16040 DATA
16050 DATA
16060 DATA
16070 DATA
16080 DATA
16090 DATA
1610 MOVE X
16100 REM ************************************ screen 62
16110 DATA
16120 DATA
16130 DATA
16140 DATA
16150 DATA
16160 DATA
16170 DATA
16180 DATA
16190 DATA
1620 REM ---------- virus bana 10
16200 REM ************************************ screen 63
16210 DATA
16220 DATA
16230 DATA
16240 DATA
16250 DATA
16260 DATA
16270 DATA
16280 DATA
16290 DATA
1630 SPRITE
16300 REM ************************************ screen 64
16310 DATA
16320 DATA
16330 DATA
16340 DATA
16350 DATA
16360 DATA
16370 DATA
16380 DATA
16390 DATA
1640 MOVE X
16400 REM ************************************ screen 65
16410 DATA
16420 DATA
16430 DATA
16440 DATA
16450 DATA
16460 DATA
16470 DATA
16480 DATA
16490 DATA
1650 REM ---------- virus bana 11
16500 REM ************************************ screen 66
16510 DATA
16520 DATA
16530 DATA
16540 DATA
16550 DATA
16560 DATA
16570 DATA
16580 DATA
16590 DATA
1660 SPRITE
16600 REM ************************************ screen 67
16610 DATA
16620 DATA
16630 DATA
16640 DATA
16650 DATA
16660 DATA
16670 DATA
16680 DATA
16690 DATA
1670 MOVE X
16700 REM ************************************ screen 68
16710 DATA
16720 DATA
16730 DATA
16740 DATA
16750 DATA
16760 DATA
16770 DATA
16780 DATA
16790 DATA
1680 REM ---------- virus bana 12
16800 REM ************************************ screen 69
16810 DATA
16820 DATA
16830 DATA
16840 DATA
16850 DATA
16860 DATA
16870 DATA
16880 DATA
16890 DATA
1690 SPRITE
16900 REM ************************************ screen 70
16910 DATA
16920 DATA
16930 DATA
16940 DATA
16950 DATA
16960 DATA
16970 DATA
16980 DATA
16990 DATA
170 REM ----------------------------------------------------------END MAIN LOOP
1700 MOVE X
17000 REM ************************************ screen 71
17010 DATA
17020 DATA
17030 DATA
17040 DATA
17050 DATA
17060 DATA
17070 DATA
17080 DATA
17090 DATA
1710 REM ---------- virus bana 13
17100 REM ************************************ screen 72
17110 DATA
17120 DATA
17130 DATA
17140 DATA
17150 DATA
17160 DATA
17170 DATA
17180 DATA
17190 DATA
1720 SPRITE
17200 REM ************************************ screen 73
17210 DATA
17220 DATA
17230 DATA
17240 DATA
17250 DATA
17260 DATA
17270 DATA
17280 DATA
17290 DATA
1730 MOVE X
17300 REM ************************************ screen 74
17310 DATA
17320 DATA
17330 DATA
17340 DATA
17350 DATA
17360 DATA
17370 DATA
17380 DATA
17390 DATA
1740 REM ---------- virus bana 14
17400 REM ************************************ screen 75
17410 DATA
17420 DATA
17430 DATA
17440 DATA
17450 DATA
17460 DATA
17470 DATA
17480 DATA
17490 DATA
1750 SPRITE
17500 REM ************************************ screen 76
17510 DATA
17520 DATA
17530 DATA
17540 DATA
17550 DATA
17560 DATA
17570 DATA
17580 DATA
17590 DATA
1760 MOVE X
17600 REM ************************************ screen 77
17610 DATA
17620 DATA
17630 DATA
17640 DATA
17650 DATA
17660 DATA
17670 DATA
17680 DATA
17690 DATA
1770 REM ------------------------------------------------------ATARI COMPUTER
17700 REM ************************************ screen 78
17710 DATA
17720 DATA
17730 DATA
17740 DATA
17750 DATA
17760 DATA
17770 DATA
17780 DATA
17790 DATA
1780 SPRITE
17800 REM ************************************ screen 79 ( slut screen )
17810 DATA
17820 DATA
17830 DATA
17840 DATA
17850 DATA
17860 DATA
17870 DATA
17880 DATA
17890 DATA
1790 RETURN
180 REM ---------------------------------SEE WERE THE SPRITE IS AND MOVE SPRITE
1800 REM -----------------------------------------------------------KEY DISCS
1810 REM
1820 FOR
1830 IF
1840 NEXT
1850 SPRITE
1860 REM -------------------------------------------------------- POWER REDUSER
1870 DEC
1880 REM ------------------------------------------------- TIMER LINER O JEEEE !
1890 DEC
190 IF
1900 IF
1910 REM ----------------------------------IF A VIRUS HITS YOU ( TIME REDUSER )
1920 MUSIC
1930 WAIT VBL
1940 REM ---------------------------------------------------IF YOU HIT A VIRUS
1950 SPRITE
1960 REM ----------------------------------------------------IF YOU HIT A DISC
1970 VARNAME
1980 RETURN
1990 REM ----------------IF 5 DISCS ARE FINDE AND YOU ARE IN THE PROSSESOR ROOM
200 IF
2000 INC
2010 IF
210 IF
220 VARNAME
230 VARNAME
240 GOSUB
250 SPRITE
2500 MUSIC
2510 CLEAR
2520 PALETTE
2530 PEN
2540 WINDOPEN
2550 PAPER
2560 WINDOPEN
2570 TITLE
2580 PRINT
2590 PRINT
260 VARNAME
2600 PRINT
2610 SCROLL
2620 PRINT
2630 WAIT
2640 LOCATE
2650 LOCATE
2660 LOCATE
2670 LOCATE
2680 LOCATE
2690 LOCATE
270 GOTO
2700 LOCATE
2710 LOCATE
2720 VARNAME
2730 RESTORE
2740 REM ****************** loop **********************
2750 FOR
2760 LOCATE
2770 LOCATE
2780 LOCATE
2790 LOCATE
280 REM ------------------------------------------------JUMP BACK TO MAIN LOOP
2800 LOCATE
2810 LOCATE
2820 LOCATE
2830 LOCATE
2840 READ
2850 LOCATE
2860 LOCATE
2870 LOCATE
2880 LOCATE
2890 WHILE
290 ON
2900 IF
2910 VARNAME
2920 WEND
2930 IF
2940 IF
2950 IF
2960 VARNAME
2970 IF
2980 NEXT
2990 LOCATE
300 IF
3000 LOCATE
3010 LOCATE
3020 LOCATE
3030 LOCATE
3040 LOCATE
3050 LOCATE
3060 LOCATE
3070 GOTO
3080 REM ********************** data **************************
3090 DATA
310 GOTO
3100 DATA
3110 DATA
3120 DATA
3130 DATA
3140 DATA
3150 DATA
3160 DATA
3170 DATA
3180 DATA
3190 DATA
320 REM --------------------------------------JUMP TO SPRITE ANIMATION >>>>>>>
3200 DATA
3210 DATA
3220 DATA
3230 DATA
3240 DATA
3250 DATA
3261 DATA
3270 DATA
3280 DATA
3290 DATA
330 VARNAME
3300 DATA
3310 DATA
3320 DATA
3330 DATA
3340 REM ********************** tidsrknare **************************
3350 LOCATE
3360 LOCATE
3370 IF
3380 RETURN
3390 REM ********************* miss *********************************
340 INC
3400 QWINDOW
3410 IF
3420 IF
3430 IF
3440 IF
3450 IF
3460 FOR
3470 SCROLL
3480 REM ********************* happy ending *************************
3490 QWINDOW
350 GOSUB
3500 IF
3510 IF
3520 IF
3530 IF
3540 IF
3550 FOR
3560 WAIT
3570 GOTO
3590 REM ********************* not so happy ending ******************
360 REM --------------------------------------JUMP TO SPRITE ANIMATION <<<<<<<
3600 QWINDOW
3610 VARNAME
3620 FOR
3630 MUSIC
3640 END
370 VARNAME
380 INC
390 GOSUB
400 REM ---------------------------------------------------------SHOOT >>>>>>>
410 IF
420 IF
430 GOSUB
440 IF
450 REM ---------------------------------------------------------SHOOT <<<<<<<
460 SPRITE
470 REM ---------------------------------------------IF 2 SPRITES HAVE COLLIDE
480 VARNAME
490 VARNAME
50 MODE
500 RETURN
5000 REM ---------------------------------------------------------- GAME OVER
5010 WAIT
5020 PALETTE
5030 WHILE
5035 WEND
5040 IF
5045 FADE
5050 REM -------------------------------------------------- JUMP BACK TO GEM
510 REM ------------------------------------------------- READING SCREEN BLOCKS
520 PALETTE
530 FOR
540 VARNAME
550 NEXT
560 REM ----------------------------------------------------- START NEW SCREEN
570 IF
580 RESTORE
590 RESET ZONE
60 GOSUB
600 FOR
610 SET ZONE
620 REM  ------------------------------------------------------READ NEW SCREEN
630 READ
640 MOVE
650 CLS
660 REM ---------------------------------------------------- PRINT NEW SCREEEN
670 FOR
680 SCREEN$
690 NEXT
70 COLOUR
700 REM --------------------------------SEE IF THERE IS ANY VIRUS ON THE SCREEN
710 IF
720 IF
730 RETURN
740 REM -------------------------------------------------JUMP BACK TO MAIN LOOP
750 REM -------------------------------------------------------------SPRITE UPP
760 VARNAME
770 IF
780 IF
790 FOR
80 SPRITE
800 WAIT VBL
810 FOR
820 WAIT VBL
830 SPRITE
840 REM -----------------------------------------------------------SPRITE DOWN
850 VARNAME
860 IF
870 IF
880 FOR
890 WAIT VBL
90 REM ---------------------------------------------------------------MAIN LOOP
900 FOR
910 WAIT VBL
920 SPRITE
930 REM -------------------------------------------------JUMP BACK TO MAIN LOOP
940 REM -----------------------------------------IF THE SPRITE RUNS IN THE WALL
950 MUSIC
960 IF
970 IF
980 IF
990 REM ------------------------------------------------ OVERLEFT JOYSTICK DATA